home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / The GIMP 2.2.8 / gimp-2.2.8-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / blend-anim.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2005-06-30  |  8.3 KB  |  235 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; This program is free software; you can redistribute it and/or modify
  5. ; it under the terms of the GNU General Public License as published by
  6. ; the Free Software Foundation; either version 2 of the License, or
  7. ; (at your option) any later version.  
  8. ; 
  9. ; This program is distributed in the hope that it will be useful,
  10. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ; GNU General Public License for more details.
  13. ; 
  14. ; You should have received a copy of the GNU General Public License
  15. ; along with this program; if not, write to the Free Software
  16. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17. ;
  18. ;
  19. ; blend-anim.scm   version 1.03   1999/12/21
  20. ;
  21. ; CHANGE-LOG:
  22. ; 1.00 - initial release
  23. ; 1.01 - some code cleanup, no real changes
  24. ; 1.02 - use gimp-message to output an error message if called
  25. ;        with less than three layers
  26. ; 1.03 - only call blur plugin when blut-radius >= 1.0
  27. ;
  28. ; Copyright (C) 1997-1999 Sven Neumann <sven@gimp.org>
  29. ;  
  30. ;
  31. ; Blends two or more layers over a backgound, so that an animation can
  32. ; be saved. A minimum of three layers is required.
  33.  
  34. (define (multi-raise-layer image layer times)
  35.   (while (> times 0)
  36.      (gimp-image-raise-layer image layer)
  37.      (set! times (- times 1))))
  38.        
  39.   
  40. (define (script-fu-blend-anim img
  41.                   drawable
  42.                   frames
  43.                   max-blur
  44.                   looped)
  45.   (let* ((max-blur (max max-blur 0))
  46.      (frames (max frames 0))
  47.      (image (car (gimp-image-duplicate img)))
  48.      (width (car (gimp-image-width image)))
  49.      (height (car (gimp-image-height image)))
  50.      (layers (gimp-image-get-layers image))
  51.      (num-layers (car layers))
  52.      (layer-array (cadr layers))
  53.      (slots (- num-layers 2))
  54.      (bg-layer (aref layer-array (- num-layers 1)))
  55.      (max-width 0)
  56.      (max-height 0)
  57.      (offset-x 0)
  58.      (offset-y 0))
  59.     
  60.   (if (> num-layers 2)
  61.       (begin
  62.  
  63.     (gimp-image-undo-disable image)
  64.  
  65.     (if (= looped TRUE)
  66.         ; add a copy of the lowest blend layer on top 
  67.         (let* ((copy (car (gimp-layer-copy
  68.                    (aref layer-array (- num-layers 2)) TRUE))))
  69.           (gimp-image-add-layer image copy 0)
  70.           (set! layers (gimp-image-get-layers image))
  71.           (set! num-layers (car layers))
  72.           (set! layer-array (cadr layers))
  73.           (set! slots (- num-layers 2))
  74.           (set! bg-layer (aref layer-array (- num-layers 1)))))
  75.  
  76.     ; make all layers invisible and check for sizes
  77.     (let* ((min-offset-x width)
  78.            (min-offset-y height)
  79.            (layer-count slots))
  80.       (gimp-drawable-set-visible bg-layer FALSE)
  81.       (while (> layer-count -1)
  82.              (let* ((layer (aref layer-array layer-count))
  83.             (layer-width (+ (car (gimp-drawable-width layer))
  84.                     (* max-blur 2)))
  85.             (layer-height (+ (car (gimp-drawable-height layer))
  86.                      (* max-blur 2)))
  87.             (layer-offsets (gimp-drawable-offsets layer))
  88.             (layer-offset-x (- (car layer-offsets) max-blur))
  89.             (layer-offset-y (- (cadr layer-offsets) max-blur)))
  90.            (gimp-drawable-set-visible layer FALSE)
  91.            (set! max-width (max max-width layer-width))
  92.            (set! max-height (max max-height layer-height))
  93.            (set! min-offset-x (min min-offset-x layer-offset-x))
  94.            (set! min-offset-y (min min-offset-y layer-offset-y))
  95.            (set! layer-count (- layer-count 1))))
  96.       (set! offset-x (- (car (gimp-drawable-offsets bg-layer))
  97.                 min-offset-x))
  98.       (set! offset-y (- (cadr (gimp-drawable-offsets bg-layer))
  99.                 min-offset-y)))
  100.     
  101.     ; create intermediate frames by merging copies of adjascent layers 
  102.     ; with the background layer 
  103.     (let* ((layer-count slots))
  104.       (while (> layer-count 0)
  105.          (let* ((frame-count frames)
  106.             (lower-layer (aref layer-array layer-count))
  107.             (upper-layer (aref layer-array (- layer-count 1))))
  108.            (while (> frame-count 0)
  109.               (let* ((opacity (* (/ frame-count (+ frames 1)) 100))
  110.              (blur (/ (* opacity max-blur) 100))
  111.              (upper-copy (car (gimp-layer-copy upper-layer TRUE)))
  112.              (lower-copy (car (gimp-layer-copy lower-layer TRUE)))
  113.              (bg-copy (car (gimp-layer-copy bg-layer TRUE))))
  114.             (gimp-image-add-layer image bg-copy 0)
  115.             (gimp-image-add-layer image lower-copy 0)
  116.             (gimp-image-add-layer image upper-copy 0)
  117.             (gimp-drawable-set-visible upper-copy TRUE)
  118.             (gimp-drawable-set-visible lower-copy TRUE)
  119.             (gimp-drawable-set-visible bg-copy TRUE)
  120.             (gimp-layer-set-opacity upper-copy (- 100 opacity))
  121.             (gimp-layer-set-opacity lower-copy opacity)
  122.             (gimp-layer-set-opacity bg-copy 100)
  123.             (if (> max-blur 0)
  124.             (let* ((layer-width (car (gimp-drawable-width upper-copy)))
  125.                    (layer-height (car (gimp-drawable-height upper-copy))))
  126.               (gimp-layer-set-preserve-trans upper-copy FALSE)
  127.               (gimp-layer-resize upper-copy
  128.                          (+ layer-width (* blur 2))
  129.                          (+ layer-height (* blur 2))
  130.                          blur
  131.                          blur)
  132.               (if (>= blur 1.0)
  133.                   (plug-in-gauss-rle 1
  134.                          image
  135.                          upper-copy
  136.                          blur
  137.                          TRUE TRUE))
  138.               (set! blur (- max-blur blur))
  139.               (gimp-layer-set-preserve-trans lower-copy FALSE)
  140.               (set! layer-width (car (gimp-drawable-width
  141.                           lower-copy)))
  142.               (set! layer-height (car (gimp-drawable-height
  143.                            lower-copy)))
  144.               (gimp-layer-resize lower-copy
  145.                          (+ layer-width (* blur 2))
  146.                          (+ layer-height (* blur 2))
  147.                          blur
  148.                          blur)
  149.               (if (>= blur 1.0)
  150.                   (plug-in-gauss-rle 1
  151.                          image
  152.                          lower-copy
  153.                          blur
  154.                          TRUE TRUE))))
  155.             (gimp-layer-resize bg-copy
  156.                        max-width
  157.                        max-height
  158.                        offset-x
  159.                        offset-y)
  160.             (let* ((merged-layer (car (gimp-image-merge-visible-layers
  161.                          image CLIP-TO-IMAGE))))
  162.               (gimp-drawable-set-visible merged-layer FALSE))
  163.             (set! frame-count (- frame-count 1))))
  164.            (set! layer-count (- layer-count 1)))))
  165.     
  166.     ; merge all original blend layers but the lowest one 
  167.         ; with copies of the background layer 
  168.     (let* ((layer-count 0))
  169.       (while (< layer-count slots)
  170.              (let* ((orig-layer (aref layer-array layer-count))
  171.             (bg-copy (car (gimp-layer-copy bg-layer TRUE))))
  172.            (gimp-image-add-layer image
  173.                      bg-copy
  174.                      (* layer-count (+ frames 1)))
  175.            (multi-raise-layer image
  176.                   orig-layer
  177.                   (+ (* (- slots layer-count) frames) 1))
  178.            (gimp-drawable-set-visible orig-layer TRUE)
  179.            (gimp-drawable-set-visible bg-copy TRUE)
  180.            (gimp-layer-resize bg-copy
  181.                   max-width
  182.                   max-height
  183.                   offset-x
  184.                   offset-y)
  185.            (let* ((merged-layer (car (gimp-image-merge-visible-layers
  186.                     image CLIP-TO-IMAGE))))
  187.          (gimp-drawable-set-visible merged-layer FALSE))
  188.            (set! layer-count (+ layer-count 1)))))
  189.     
  190.     ; merge the lowest blend layer with the background layer  
  191.     (let* ((orig-layer (aref layer-array (- num-layers 2))))
  192.       (gimp-drawable-set-visible bg-layer TRUE)
  193.       (gimp-drawable-set-visible orig-layer TRUE)
  194.       (gimp-image-merge-visible-layers image CLIP-TO-IMAGE))
  195.     
  196.     ; make all layers visible again
  197.     (let* ((result-layers (gimp-image-get-layers image))
  198.            (num-result-layers (car result-layers))
  199.            (result-layer-array (cadr result-layers))
  200.            (layer-count (- num-result-layers 1)))
  201.       (while (> layer-count -1)
  202.          (let* ((layer (aref result-layer-array layer-count))
  203.             (name (string-append "Frame "
  204.                      (number->string
  205.                       (- num-result-layers layer-count) 10))))
  206.            (gimp-drawable-set-visible layer TRUE)
  207.            (gimp-drawable-set-name layer name)
  208.            (set! layer-count (- layer-count 1))))
  209.     
  210.       (if (= looped TRUE)
  211.           ; remove the topmost layer
  212.           (gimp-image-remove-layer image (aref result-layer-array 0))))
  213.           
  214.     (gimp-image-undo-enable image)
  215.     (gimp-display-new image)
  216.     (gimp-displays-flush))
  217.   (gimp-message "Blend Animation needs at least three source layers"))))
  218.  
  219. (script-fu-register "script-fu-blend-anim"
  220.             _"_Blend..."
  221.             "Blend two or more layers over a background, so that an 
  222.                      animation can be saved"
  223.             "Sven Neumann <sven@gimp.org>"
  224.             "Sven Neumann"
  225.             "1999/12/21"
  226.             "RGB* GRAY*"
  227.             SF-IMAGE       "Image"               0
  228.             SF-DRAWABLE    "Drawable"            0
  229.             SF-ADJUSTMENT _"Intermediate frames" '(3 1 1024 1 10 0 1)
  230.             SF-ADJUSTMENT _"Max. blur radius"    '(0 0 1024 1 10 0 1)
  231.             SF-TOGGLE     _"Looped"              TRUE)
  232.  
  233. (script-fu-menu-register "script-fu-blend-anim"
  234.              _"<Image>/Script-Fu/Animators")
  235.